﻿Public Class GenerarPartidos

    Private bd As BaseDatos
    Private MaxIdPartido As Integer
    Dim totalJornadas As Integer
    Dim partidosJornada As Integer
    Dim totalPartidos As Integer
    Dim totalEquipos As Integer
    Dim numeroRondas As Integer
    Dim Idequipos As List(Of String)
    Dim GenerarLiga As GenerarLiga
    Dim GenerarTorneo As GenerarTorneo
    Dim tipoTorneo As String
    Dim _miCampeonato As Campeonato

    Private Sub GenerarPartidos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        bd = New BaseDatos
        Idequipos = New List(Of String)
        CargarDatos()
        _miCampeonato = New Campeonato
    End Sub
    
    Private Sub BtCancelar_Click(sender As Object, e As EventArgs) Handles BtCancelar.Click
        Me.Visible = False
    End Sub

    Private Sub BtAceptar_Click(sender As Object, e As EventArgs) Handles BtAceptar.Click
        FormEntrada.GenerarPartidosToolStripMenuItem.Enabled = False
        If FormEntrada.TipoTorneo = "Liga" Then
            GenerarLiga = New GenerarLiga(Idequipos, MaxIdPartido, numeroRondas, FormEntrada.CampeonatoActivo)
            GenerarLiga.Generardor()
        ElseIf FormEntrada.TipoTorneo = "Torneo" Then
            GenerarTorneo = New GenerarTorneo(Idequipos, MaxIdPartido)
        Else

        End If
        'generamos los partidos

        Me.Close()
        'Form1.BtGestionPartidos.Enabled = True
        'Form1.BtClasificacion.Enabled = True
        'Form1.BtImprimir.Enabled = True
    End Sub

    Public Sub CargarDatos()
        'inicializamos la variable MaxIdPartido para realizar las insert en la tabla partidos
        MaxIdPartido = bd.MaxIdPartido()
        numeroRondas = FormEntrada.RondasTorneo
        TbNombre.Text = FormEntrada.NombreTorneo
        TbRondas.Text = CStr(numeroRondas)
        TbTipo.Text = FormEntrada.TipoTorneo
        tipoTorneo = FormEntrada.TipoTorneo

        'lista auxiliar que guarda los datos que devuelve la select de equipos
        'de esta list guardaremos solo las id en la lista equipos
        'que es con la que trabajaremos para generar los partidos
        Dim auxLista As List(Of String) = New List(Of String)
        auxLista = bd.Consultar("Select * from Participar where IdTorneo = " & FormEntrada.CampeonatoActivo & ";", "Participar")
        For Each dato As String In auxLista
            Idequipos.Add(dato)
        Next

        'Inicializamos la variables
        totalEquipos = Idequipos.Count
        totalJornadas = totalEquipos - 1
        partidosJornada = CInt(totalEquipos / 2)
        totalPartidos = totalJornadas * partidosJornada

        'cargamos los elementos visuales con sus valores
        TbPartidosJornada.Text = CStr(partidosJornada)
        TbTotalEquipos.Text = CStr(totalEquipos)
        TbTotalJornadas.Text = CStr(totalJornadas)
        TbTotalPartidos.Text = CStr(totalPartidos)
    End Sub
End Class